home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)t6.d64 / adsr demo.c (.txt) next >
Commodore BASIC  |  2007-02-04  |  908b  |  29 lines
  1. 5 PRINT"[147]":POKE53281,12:POKE646,0
  2. 10 PRINTTAB(8)CHR$(18)CHR$(169)CHR$(223)"[146] "
  3. 20 PRINTTAB(7)CHR$(18)CHR$(169)"  "CHR$(223)
  4. 30 PRINTTAB(6)CHR$(18)CHR$(169)"    "CHR$(223)
  5. 40 PRINTTAB(5)CHR$(18)CHR$(169)"      "CHR$(223)
  6. 50 PRINTTAB(4)CHR$(18)CHR$(169)"                   "CHR$(223)
  7. 60 PRINTTAB(3)CHR$(18)CHR$(169)"                     "CHR$(223)
  8. 70 PRINTTAB(2)CHR$(18)CHR$(169)"                       "CHR$(223)
  9. 80 PRINTTAB(1)CHR$(18)CHR$(169)"                         "CHR$(223)
  10. 90 PRINT
  11. 100 PRINT"    A     D   SUSTAIN    R"
  12. 110 PRINT"    T     E              E"
  13. 120 PRINT"    T     C              L"
  14. 130 PRINT"    A     A              E"
  15. 140 PRINT"    C     Y              A"
  16. 150 PRINT"    K                    S"
  17. 160 PRINT"                         E"
  18. 170 CL=55296:S=54272:W=S+4:AD=S+5:SR=S+6:V=S+24
  19. 175 POKEV,15:POKEAD,202:POKESR,58:POKES,135:POKES+1,33:POKEW,33
  20. 180 FORR=CLTOCL+5:FORU=RTOCL+1024STEP40
  21. 185 POKEU,1:NEXT:NEXT
  22. 190 FORR=CL+6TOCL+12:FORU=RTOCL+1024STEP40
  23. 195 POKEU,1:NEXT:NEXT
  24. 197 FORR=CL+13TOCL+23:FORU=RTOCL+1024STEP40
  25. 198 POKEU,1:NEXT:NEXT
  26. 200 POKEW,16:FORR=CL+24TOCL+28:FORU=RTOCL+1024STEP40
  27. 290 POKEU,1:NEXT:NEXT
  28. 300 FORT=STOS+28:POKET,0:NEXT
  29.